home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Compilers⁄Interps / kevoSource / main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-05-08  |  1.7 KB  |  49 lines  |  [TEXT/KAHL]
  1. /* Kevo -- a prototype-based object-oriented language */
  2. /* (c) Antero Taivalsaari 1991-1993                   */
  3. /* Some parts (c) Antero Taivalsaari 1986-1988           */
  4. /* main.c: Kevo system initialization                   */
  5.  
  6. #include "global.h"
  7.  
  8. static char kevo[]   = "Kevo Interactive Compiler Kernel";
  9. static char author[] = "Copyright (c) 1992 Antero Taivalsaari";
  10.  
  11. void main(argc, argv) 
  12. int   argc;
  13. char* argv[];
  14. { 
  15.   PAIR* systemInitPair;
  16.  
  17.     printf("Loading the image file 'kevo.img'...\n");
  18.     
  19.     initRootContexts();            /* Initialize root contexts for names (context.c) */
  20.     initPrimitives();            /* Add (portable) primitives to root context (prim.c) */
  21.     initPortedPrims();            /* Add non-portable primitives (portPrim.c) */
  22.  
  23.     openImage(argc, argv);        /* Open the image file (image.c) */
  24.     loadImage();                /* Load the image file to the system (image.c) */
  25.  
  26.     initRootFamilies();            /* Add the clone family lists to basic contexts */
  27.     initVariables();             /* Initialize certain variables (image.c) */
  28.     initStacks();                 /* Initialize execution stacks (kernel.c) */
  29.     initFiles();                 /* Initialize standard files (files.c) */
  30.   
  31.     /* Search the 'boot' operation from the root context */
  32.     systemInitPair = findPairInThis(rootContext, "SystemInit");
  33.     if (systemInitPair) {
  34.         ip = (int**)systemInitPair->ofa->mfa;
  35.  
  36.         initSignals();            /* Set the signal handler function (signals.c) */
  37.         initGUI();                /* Initialize graphical user interface (portEvents.c) */
  38.  
  39.         preemptiveInterpreter(); /* Start the preemptive inner interpreter (kernel.c) */
  40.     }
  41.     else {
  42. /*        printf("%s: 'SystemInit' operation missing from image file \"%s\".\n", argv[0], argv[1]); */
  43.         printf("'SystemInit' operation missing from the image file 'kevo.img'.\nCannot continue. Exiting.\n");
  44.         exit(1);
  45.     }
  46. }
  47.  
  48.  
  49.